home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr11 / powerb5.zip / MAKE_ID.BAS < prev    next >
BASIC Source File  |  1993-06-01  |  813b  |  35 lines
  1. 'Program MAKE_ID.BAS
  2. DECLARE SUB GenID (ID$, Flag%)
  3. START:
  4.  INPUT "Enter a 5 digit number: ", ID$
  5.  CALL GenID(ID$, Flag%)
  6.  IF Flag% = 1 THEN
  7.    PRINT "The ID number is: "; ID$
  8.    SYSTEM
  9.  ELSE
  10.    PRINT "Invalid number"
  11.    GOTO START
  12.  END IF
  13.  
  14. SUB GenID (ID$, Flag%)
  15.  ' If ID$ is a 5-digit number, add a
  16.  ' check digit to make it a valid
  17.  ' 6-digit ID number and set Flag%
  18.  ' to 1. If ID$ is not valid, set
  19.  ' Flag% to 0.
  20.  DIM D(5) AS INTEGER
  21.  Flag% = 0
  22.  IF LEN(ID$) <> 5 THEN EXIT SUB
  23.  FOR I% = 1 TO 5
  24.   A$ = MID$(ID$, I%, 1)
  25.   IF A$ < "0" OR A$ > "9" THEN EXIT SUB
  26.   D(I%) = VAL(A$)
  27.  NEXT I%
  28.  'Calculate last digit from first 5
  29.  RESULT% = D(1) + D(2) * 2 + D(3)
  30.  RESULT% = RESULT% + D(4) * 2 + D5
  31.  RESULT% = RESULT% MOD 10
  32.  ID$ = ID$ + CHR$(ASC("0") + RESULT%)
  33.  Flag% = 1
  34. END SUB
  35.